home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / a_utils / ffccflow / ffccflow.lha / ffccc+flow / ffccc / RANGE.f < prev    next >
Encoding:
Text File  |  1992-07-31  |  907 b   |  24 lines
  1.       LOGICAL FUNCTION RANGE(NUMBER,IARRAY) 
  2. *-----------------------------------------------------------------------
  3. *   
  4. *   Purpose:    returns 'TRUE' if NUMBER is contained in ranges given   
  5. *               in IARRAY.  
  6. *   
  7. *   Input:      NUMBER    number to check   
  8. *               IARRAY    array containing ranges in the following way: 
  9. *                         word 1 = no. of ranges
  10. *                         word 2 = lower limit, range 1 
  11. *                         word 3 = upper limit, range 1   etc.  
  12. *   
  13. *   Author :    HG      date: 4.6.84      last revision: 4.6.84 
  14. *-----------------------------------------------------------------------
  15.       DIMENSION IARRAY(*)   
  16.       RANGE=.FALSE. 
  17.       DO 10 I=1,IARRAY(1)   
  18.          IF (NUMBER.GE.IARRAY(2*I).AND.NUMBER.LE.IARRAY(2*I+1))  THEN   
  19.             RANGE=.TRUE.
  20.             GOTO 999
  21.          ENDIF  
  22.    10 CONTINUE  
  23.   999 END   
  24.